home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / detect2r / mhdock_m.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-01  |  2.5 KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm mdiMHDock 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "MHDock UserControl "
  5.    ClientHeight    =   5145
  6.    ClientLeft      =   825
  7.    ClientTop       =   1455
  8.    ClientWidth     =   6870
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin prjMHDock.MHDock MHDock1 
  11.       Left            =   3060
  12.       Top             =   2040
  13.       _ExtentX        =   847
  14.       _ExtentY        =   820
  15.    End
  16.    Begin VB.PictureBox Picture1 
  17.       Align           =   1  'Align Top
  18.       Height          =   675
  19.       Left            =   0
  20.       ScaleHeight     =   615
  21.       ScaleWidth      =   6810
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   6870
  25.       Begin VB.Label Label1 
  26.          Alignment       =   1  'Right Justify
  27.          Caption         =   "Horizontal Snap:"
  28.          Height          =   255
  29.          Index           =   0
  30.          Left            =   540
  31.          TabIndex        =   4
  32.          Top             =   60
  33.          Width           =   1215
  34.       End
  35.       Begin VB.Label Label1 
  36.          Alignment       =   1  'Right Justify
  37.          Caption         =   "Vertical Snap:"
  38.          Height          =   255
  39.          Index           =   1
  40.          Left            =   540
  41.          TabIndex        =   3
  42.          Top             =   360
  43.          Width           =   1215
  44.       End
  45.       Begin VB.Label lblxDock 
  46.          Height          =   195
  47.          Left            =   1860
  48.          TabIndex        =   2
  49.          Top             =   60
  50.          Width           =   2235
  51.       End
  52.       Begin VB.Label lblyDock 
  53.          Height          =   195
  54.          Left            =   1860
  55.          TabIndex        =   1
  56.          Top             =   360
  57.          Width           =   2235
  58.       End
  59.    End
  60. Attribute VB_Name = "mdiMHDock"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = False
  63. Attribute VB_PredeclaredId = True
  64. Attribute VB_Exposed = False
  65. Option Explicit
  66. Private Sub MDIForm_Load()
  67.     frmMHDock.Show
  68. End Sub
  69. Private Sub MHDock1_Moved(xDockPos As Single, yDockPos As Single)
  70.     Select Case xDockPos
  71.         Case 0: lblxDock.Caption = "Not docked"
  72.         Case 1: lblxDock.Caption = "Docked on the left"
  73.         Case 2: lblxDock.Caption = "Docked on the right"
  74.     End Select
  75.     Select Case yDockPos
  76.         Case 0: lblyDock.Caption = "Not docked"
  77.         Case 1: lblyDock.Caption = "Docked on the top"
  78.         Case 2: lblyDock.Caption = "Docked on the bottom"
  79.     End Select
  80. End Sub
  81.